home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vb2 / pro19 / minwind.bas < prev    next >
Encoding:
BASIC Source File  |  1992-03-16  |  2.2 KB  |  54 lines
  1. '*********************************************************
  2. '    Not all these functions are used in this program
  3. '    But were tested during the process.
  4. '*********************************************************
  5.  
  6. Declare Function GetParent Lib "User" (ByVal hWnd As Integer) As Integer
  7. Declare Function GetTopWindow Lib "User" (ByVal hWnd As Integer) As Integer
  8. Declare Function GetWindowTask Lib "User" (ByVal hWnd As Integer) As Integer
  9. Declare Function IsWindow Lib "User" (ByVal hWnd As Integer) As Integer
  10. Declare Function IsWindowVisible Lib "User" (ByVal hWnd As Integer) As Integer
  11. Declare Function IsIconic Lib "User" (ByVal hWnd As Integer) As Integer
  12. Declare Function IsZoomed Lib "User" (ByVal hWnd As Integer) As Integer
  13. Declare Function IsWindowEnabled Lib "User" (ByVal hWnd As Integer) As Integer
  14. Declare Function IsChild Lib "User" (ByVal hWndParent As Integer, ByVal hWnd As Integer) As Integer
  15. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  16. Declare Function GetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer
  17. Declare Function GetNextWindow Lib "User" (ByVal hWnd As Integer, ByVal Wflag As Integer) As Integer
  18.  
  19. '  ShowWindow() Commands
  20. Global Const SW_HIDE = 0
  21. Global Const SW_SHOWNORMAL = 1
  22. Global Const SW_NORMAL = 1
  23. Global Const SW_SHOWMINIMIZED = 2
  24. Global Const SW_SHOWMAXIMIZED = 3
  25. Global Const SW_MAXIMIZE = 3
  26. Global Const SW_SHOWNOACTIVATE = 4
  27. Global Const SW_SHOW = 5
  28. Global Const SW_MINIMIZE = 6
  29. Global Const SW_SHOWMINNOACTIVE = 7
  30. Global Const SW_SHOWNA = 8
  31. Global Const SW_RESTORE = 9
  32.  
  33. '  GetWindow() Constants
  34. Global Const GW_HWNDFIRST = 0
  35. Global Const GW_HWNDLAST = 1
  36. Global Const GW_HWNDNEXT = 2
  37. Global Const GW_HWNDPREV = 3
  38. Global Const GW_OWNER = 4
  39. Global Const GW_CHILD = 5
  40.  
  41. Global Const FALSE = 0
  42. Global Const TRUE = -1
  43.  
  44. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  45. Global Const BLACK = &H0&
  46. Global Const RED = &HFF&
  47. Global Const GREEN = &HFF00&
  48. Global Const YELLOW = &HFFFF&
  49. Global Const BLUE = &HFF0000
  50. Global Const MAGENTA = &HFF00FF
  51. Global Const CYAN = &HFFFF00
  52. Global Const WHITE = &HFFFFFF
  53.  
  54.